home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
fast boot maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
126 lines
100 ifa=0thenpoke55,0:poke56,56:clr:gosub1000
110 a=a+1:onagoto130,160,170,340,350,360,370
120 print"* [204]oad [211]eq. [197]rror *":end
130 rem program
140 dimfl$(32)
150 load"baid.$c000",8,1
160 load"fastf.$3800",8,1
170 sys12*16*256
180 gosub860
190 print"[159][147]"
200 print" [198]ast [204]oader to use :"
210 h=int(p/2+.5)
220 fort=1toh
230 print""right$(str$(t),2)") "fl$(t-1)"";
240 ift*2=<pthen printright$(str$(t+h),2)")"fl$(h+t-1)
250 next
260 print" [204]oader (1-"mid$(str$(p),2)")"
270 geta$:ifa$<"1"ora$>"4"then270
280 print"[199]etting fastloader #"a$"..."
290 f=val(a$)
300 print""
310 f$=fl$(f-1)
320 remprint"("f$")"
330 load@(4*16+2)*256,f$,8
340 ea=peek(174)+256*peek(175)
350 load@4*16*256,"auto.bin",8
360 load@(4*16+1)*256,"fbsec.bin",8
370 remprint"[197]nd address is: ";ea
380 print"[147][208]rogram to boot ([195][210]=[206]one) ";
390 gosub1200:i$=w$:ifi$=""then490
400 i$=left$(i$,15)
410 printchr$(13)"[194][193][211][201][195] program ? ([217]/[206]) ";
420 d=64738-1:gosub990:gosub1200:t$=w$
430 ft=128:ifleft$(t$,1)="y"orleft$(t$,1)="[217]"thenft=0:goto460
440 printchr$(13)"[197]xecution address ([200]ex.) ";
450 gosub1200:h$=w$:gosub960:d=d-1:gosub990
460 fort=1tolen(i$):pokeea+t+4,asc(mid$(i$,t,1)):next:
470 pokeea,27:pokeea+1,1:pokeea+2,len(i$)orft:pokeea+3,lo:pokeea+4,hi
480 ea=ea+t+4
490 print"
500 m$[178]"*right$nsert peeklank str$isk*":[141]790
510 [158](3[172]16[170]8)[172]256[170]3
520 [159]15,8,15,"i0"
530 [160]15:[153]".";
540 [159]2,8,1,"auto":[152]2,[199](167)[199](2);
550 [153]@2,(4[172]16)[172]256,(4[172]16)[172]256[170]252:[160]2
560 [153]".";
570 [129]t[178]1[164][195](f$):[151](4[172]16[170]1)[172]256[170]4[170]t,[198]([202](f$,t,1)):[130]
580 [159]15,8,15:[159]2,8,2,"#":[152]15,"b-p"2;0
590 [153]@2,(4[172]16[170]1)[172]256,(4[172]16[170]2)[172]256
600 [152]15,"u2";2;0;18;18
610 [160]2:[160]15
620 [153]".";
630 [139]i$[179][177]""[167]650
640 [143]
650 [159]2,8,1,f$
660 h$[178][202](f$,5,4):[141]960
670 [152]2,[199](lo)[199](hi);:[153]@2,(4[172]16[170]2)[172]256,ea
680 [160]2
690 [153]"load (NULL)ow copy "[199](34)i$[199](34)" to the boot"
700 [153]"disk exactly as you spelled it and it
710 print"will autoboot with a fast load when you:
720 [153]"(NULL)(NULL)atnstr$"[199](34)":*"[199](34)",8,1 close
730 print"[212]hat's all there is to it!"
740 print"[209]uit or [205]ake another boot disk? ([209]/[205])"
750 geta$:ifa$<>"q"anda$<>"m"then750
760 ifa$="q"then1300
770 ifa$="m"then190
780 end
790 printm$
800 ifgthen:print"";:goto820
810 print"[146]";
820 g=1-g:print"[145]";
830 fort=0to10:geta$:ifa$=""thennext
840 ifa$=""then790
850 print"[146]";:fort=1tolen(m$):print" ";:next:print"[145]":return
860 open2,8,0,"$fl.$*"
870 p=0
880 input$2,32,a$
890 input$2,4,d$:l=asc(mid$(d$,3,1))+256*asc(mid$(d$,4,1))
900 c=len(str$(l))
910 fort=1toc+1:get#2,a$:ifa$=" "thennext
920 ifa$="b"thenclose2:return
930 input$2,25,a$:
940 fl$(p)=mid$(a$,2,8):p=p+1
950 goto890
960 d=0:forj=1tolen(h$):v=asc(mid$(h$,j,1))
970 ifv>asc("9")thenv=v-asc("a")+asc("9")+1
980 d=d*16+v-asc("0"):next
990 hi=int(d/256):lo=d-hi*256:return
1000 rem message
1010 gosub1020:return
1020 poke53281,0:poke53280,0:print"[147][158]"
1030 fori=1to11:print"[169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:next
1040 fori=1to11:print"[152][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][151][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169]";:next:print"[158]"
1050 fori=217to242:pokei,peek(i)or128:next
1060 poke214,5:print:fori=1to10:printtab(4)"[221][152] [146][158][221]
1070 [130]:[151]214,6:[151]211,4:[158]58732
1080 [153]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
1090 [153][163]5)"listnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewsys"
1100 [151]214,16:[151]211,4:[158]58732
1110 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
1120 [153][163]5)"ononpokefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefresys":[151]214,8:[153]
1130 a$[178]"ascatn(NULL)(NULL)closepeek(NULL)(NULL)(NULL)closechr$val(NULL)val(NULL)atn(NULL)(NULL)(NULL)":[141]1190
1140 a$[178]"by (NULL)homas lenzarnecki":[141]1190
1150 a$[178]"(NULL)(NULL)peek(NULL)right$(NULL)left$valstr$close(NULL)(NULL)close(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)close#close65":[141]1190
1160 a$[178]"(NULL)ubscriptions 1-800-831-2694":[141]1190
1170 a$[178]"(len) 1989 (NULL)homas lenzarnecki":[141]1190
1180 [151]214,23:[153]:[153][163]12)" (NULL) (NULL) atnclosestr$closeright$close(NULL)closechr$ ":[142]
1190 [153][166]20[171][195](a$)[173]2)"print#"a$:[142]
1200 w$[178]"":[153]">waitcmd";:limit[178]16
1210 [161]a$:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"cmd"[176]a$[178]""[176]a$[178]""[176]a$[178]"load"[176]a$[178]""[167]1210
1220 lw[178][195](w$):as[178][198](a$):[139]as[178]13[176]as[178]141[176]as[178]20[167]1270
1230 [139][194](653)[178]2[176][194](653)[178]4[176]as[178]148[167]1210
1240 [139]lw[178]limit [175](as[179][177]20[175]as[179][177]13[175]as[179][177]141)[167]1210
1250 [139]as[178]34[176](as[177][178]133[175]as[179][178]140)[176](as[177][178]1[175]as[179][178]31)[167]1210
1260 w$[178]w$[170]a$:[153]a$">waitcmd";:lw[178][195](w$):[137]1210
1270 [139]as[178]20[175]w$[179][177]""[167]w$[178][200](w$,lw[171]1):[153]"cmd<wait cmdcmd";:[137]1210
1280 [139]as[178]20[175]w$[178]""[167]1210
1290 [139]as[178]13[167][153]" ";:li[178]0:[142]
1300 a$[178]"hello connect":[159]15,8,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15
1310 [139] er[179][177]63 [167] [153]"load":[128]
1320 q$[178][199](34):[151]646,[194](53281):[153]"load"
1330 [153]"load"q$a$q$",8"
1340 [153]"run":[151]631,13:[151]632,13:[151]198,2:[128]